Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue30/crossref/DbCrCode/DbCrossF.dfm/DbCrossF.txt

Text File | 1997-11-19 | 6.2 KB | 267 lines

object DbCrossForm: TDbCrossForm
  Left = 331
  Top = 128
  Width = 252
  Height = 220
  Caption = 'Database Cross-Reference'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 21
    Width = 94
    Height = 13
    Caption = 'Path for HTML files:'
  end
  object BtnGenerate: TButton
    Left = 48
    Top = 80
    Width = 145
    Height = 25
    Caption = 'Generate &Files'
    TabOrder = 0
    OnClick = BtnGenerateClick
  end
  object EditPath: TEdit
    Left = 48
    Top = 40
    Width = 145
    Height = 21
    TabOrder = 1
    Text = 'c:\tmp\'
  end
  object ButtonMain: TButton
    Left = 48
    Top = 112
    Width = 145
    Height = 25
    Caption = 'Open &Main'
    TabOrder = 2
    OnClick = ButtonMainClick
  end
  object ButtonCross: TButton
    Left = 48
    Top = 144
    Width = 145
    Height = 25
    Caption = 'Open &Cross Reference'
    TabOrder = 3
    OnClick = ButtonCrossClick
  end
  object TableCustomers: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 8
    Top = 16
    object TableCustomersCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object TableCustomersCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object TableCustomersAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object TableCustomersAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object TableCustomersCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object TableCustomersState: TStringField
      FieldName = 'State'
    end
    object TableCustomersZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object TableCustomersCountry: TStringField
      FieldName = 'Country'
    end
    object TableCustomersPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object TableCustomersFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object TableCustomersTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object TableCustomersContact: TStringField
      FieldName = 'Contact'
    end
    object TableCustomersLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object TableOrders: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexName = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'ORDERS.DB'
    Left = 8
    Top = 64
    object TableOrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object TableOrdersCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
    object TableOrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object TableOrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object TableOrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
    end
    object TableOrdersShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object TableOrdersShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object TableOrdersShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object TableOrdersShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object TableOrdersShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object TableOrdersShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object TableOrdersShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object TableOrdersShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object TableOrdersShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object TableOrdersPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object TableOrdersTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object TableOrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object TableOrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object TableOrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object TableOrdersFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object TableOrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
  end
  object TableItems: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = DataSource2
    TableName = 'ITEMS.DB'
    Left = 8
    Top = 112
    object TableItemsOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object TableItemsItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object TableItemsPart: TStringField
      FieldName = 'Part'
      LookupDataSet = TableParts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Description'
      KeyFields = 'PartNo'
      Size = 30
      Lookup = True
    end
    object TableItemsPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object TableItemsQty: TIntegerField
      FieldName = 'Qty'
    end
    object TableItemsDiscount: TFloatField
      FieldName = 'Discount'
    end
  end
  object DataSource1: TDataSource
    DataSet = TableCustomers
    Left = 208
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = TableOrders
    Left = 208
    Top = 64
  end
  object TableParts: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'PARTS.DB'
    Left = 208
    Top = 112
    object TablePartsPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object TablePartsVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object TablePartsDescription: TStringField
      FieldName = 'Description'
      Size = 30
    end
    object TablePartsOnHand: TFloatField
      FieldName = 'OnHand'
    end
    object TablePartsOnOrder: TFloatField
      FieldName = 'OnOrder'
    end
    object TablePartsCost: TCurrencyField
      FieldName = 'Cost'
    end
    object TablePartsListPrice: TCurrencyField
      FieldName = 'ListPrice'
    end
  end
end